home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / cfd.src < prev    next >
Text File  |  1991-10-19  |  557b  |  32 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ CFD (Chemical Formula Display Utility) by Frank Seipel
  3. \<< 0 \-> px py str cn
  4.   \<< 1 str SIZE
  5.     FOR j str j j
  6. SUB DUP NUM 'cn'
  7. STO
  8.       IF '57\>=cn AND
  9. cn\>=48'
  10.       THEN 1 \->GROB
  11. PICT SWAP px py 4 +
  12. 2 \->LIST SWAP REPL
  13. px 4 + 'px' STO
  14.       ELSE DUP
  15.         IF "@" SAME
  16.         THEN DROP
  17. str DUP SIZE j 1 +
  18. SWAP SUB 2 \->GROB
  19. PICT SWAP # 50d py
  20. 2 \->LIST SWAP REPL '
  21. j=80' DEFINE
  22.         ELSE 2
  23. \->GROB PICT SWAP px
  24. py 2 \->LIST SWAP
  25. REPL px 6 + 'px'
  26. STO
  27.         END
  28.       END
  29.     NEXT
  30.   \>>
  31. \>>
  32.